library("foreign")

read.tickData <- function(fileName, ticker) {
	data <- read.dbf(filaName)
	data[data$ISIN == ticker,]
}
